Visual Basic 6 - [VBA] xmlhttp.send tempo di attesa troppo lungo

Forum - Visual Basic 6 - [VBA] xmlhttp.send tempo di attesa troppo lungo

davifumi89 (Normal User)
Rookie

Messaggi: 49
Iscritto: 09/03/2010

Postato alle 13:26
Giovedì, 15/04/2010

Ragazzi ho un programma che dato un IP raggiunge la sua pagina di configurazione, ne estrapola il codice HTML, lo inserisce dentro una stringa e poi cerco le informazioni che mi interessano dentro la stringa con il codice.

Alcuni IP però...presenti nel database a volte non sono raggiungibili..e il programma sta per troppo tempo piantanto su XMLHTTP.SEND

ecco il codice:

--------------------------

Dim OggettoHttp As Object

Set OggettoHttp = CreateObject("microsoft.xmlhttp")

Url = "http://......"

OggettoHttp.Open "GET", Url, False

OggettoHttp.send

-----------------------------

Vorrei fare un controllo che se il tempo di attesa fosse troppo lungo restituisca un messaggio di errore.

Non posso usare il Timer....

Grazie

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 22:30
Giovedì, 15/04/2010

forse (se esiste) ti potrebbe essere utile la funzione .busy che restituisce true se il prog sta ancora mandando i dati o false se è libero... perchè non puoi usare un timer?

davifumi89 (Normal User)
Rookie

Messaggi: 49
Iscritto: 09/03/2010

Postato alle 8:36
Venerdì, 16/04/2010

probabilmente non esiste...ho provato e non è una proprietà dell'oggetto.

Il timer non posso usarlo perchè in VBA è da installare se non sbaglio...e siccome lavoro in una macchina che non ha i diritti Administrator non ho i diritti per farlo.

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 16:52
Venerdì, 16/04/2010

ah, non avevo letto che usavi VBA, mi spiace ma non saprei come aiutarti..